timestamp Subroutine

subroutine timestamp()

************80

TIMESTAMP prints the current YMDHMS date as a time stamp.

Arguments

None

Variables

Type Visibility Attributes Name Initial
character(len=8), public :: ampm
integer(kind=4), public :: d
integer(kind=4), public :: h
integer(kind=4), public :: m
integer(kind=4), public :: mm
character(len=9), public, parameter, dimension(12) :: month = (/'January  ', 'February ', 'March    ', 'April    ', 'May      ', 'June     ', 'July     ', 'August   ', 'September', 'October  ', 'November ', 'December '/)
integer(kind=4), public :: n
integer(kind=4), public :: s
integer(kind=4), public :: values(8)
integer(kind=4), public :: y